(DEFPROP <RPELEM> 
 (LAMBDA NIL
  (NLRR (QUOTE RPELEM)
	(FUNCTION
	 (LAMBDA NIL
	  (COND ((AND (CH <) (<ID>) (CH >)) (STK 1))
		((AND (QCH ↓)) (CONS (QUOTE FORMAT) (CONS (QUOTE %DOWN) NIL)))
		((AND (QCH →) (<NUMBER>))
		 (CONS (QUOTE FORMAT) (CONS (CONS (QUOTE %IN) (CONS (STK 0) NIL)) NIL)))
		((AND (QCH →)) (CONS (QUOTE FORMAT) (CONS (CONS (QUOTE %IN) (CONS (QUOTE 0) NIL)) NIL)))
		((AND (<ID>)) (CONS (QUOTE SPWD) (CONS (STK 0) NIL)))
		((AND (QCH ') (<CHAR>)) (CONS (QUOTE QCH) (CONS (STK 0) NIL)))
		((AND (<CHAR>)) (CONS (QUOTE CH) (CONS (STK 0) NIL)))
		(*NIL*)))))) 
EXPR)